home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1987 November / Ahoy_Magazine_87-11_1987_Double_L.d64 / Random Order 2 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  337b  |  14 lines
  1. 1 rem ==================================
  2. 2 rem    commodares problem #43-3 :
  3. 3 rem     random order
  4. 4 rem    solution by
  5. 5 rem     paul sobolik
  6. 6 rem ==================================
  7. 100 input"[147]low, high";p1,p2
  8. 110 dim s(p2):for x=0 to p2:s(x)=x:next
  9. 120 for x=p2 to p1 step -1
  10. 130 :  y=rnd(1)*(x-p1)+p1
  11. 140 :  print s(y);
  12. 150 :  s(y)=s(x)
  13. 160 next : print : print
  14.